home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / vivid / new.dir / 00998_Script_998 < prev    next >
Text File  |  1983-03-27  |  431b  |  23 lines
  1. ON COPY_IT
  2.   GLOBAL DATI_BITMAP, PROGRESSIVE,LIBRO,STRADA
  3.   
  4.   
  5.   
  6.   IF the castType of cast 1= #EMPTY THEN 
  7.     SET PROGRESSIVE=1
  8.   ELSE 
  9.     SET PROGRESSIVE TO VALUE(THE TEXT OF CAST 997)
  10.   END IF
  11.   
  12.   duplicate cast 1000,progressive
  13.   SET THE PICTURE OF CAST progressive TO DATI_BITMAP
  14.   SET PROGRESSIVE=PROGRESSIVE+1
  15.   SET THE TEXT OF CAST 997 TO STRING(PROGRESSIVE)
  16.   UPDATESTAGE
  17.   
  18.   SAVE_IT
  19.   
  20.   
  21. END
  22.  
  23.